home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 4 Years
/
Tiger_Disk_4_Years_19xx_Tiger-Crew-Disk_de_Side_A.d64
/
font grabber
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
125 lines
10 poke53280,0:poke53281,0:poke646,3
20 poke53272,peek(53272)or2
30 gosub1110
40 print" [207]ptions:
50 [153]" 1wait str$isk file.
60 print" 2[146] [205]emory.
70 [161]d$:[139]d$[178]""[167]70
80 d[178][197](d$):[139]d[179]1[176]d[177]2[167]70
90 [153]" chr$rab:
100 print" 1[146] [211]et#0 [213]ppercase/[199]raphics."
110 print" 2[146] [211]et#1 [204]ower/[213]ppercase."
120 getg$:ifg$=""then120
130 g=val(g$):ifg<1org>2then120
140 gosub1110
150 input" [206]ame for new [199][197][207][211] font";m$
160 ifg=2thenf=2048
170 ifd=2then490
180 print"[147] [201]nsert [196]isk [215]ith [198][207][206][212] [198]ile in drive:"
190 geta$:ifa$=""then190
200 print"[147] [215]hen listing reaches [198][207][206][212] to edit,"
210 print" [200]it a [203]ey."
220 open15,8,15
230 open1,8,0,"$"
240 get#1,a$,a$
250 get#1,a$,a$
260 ifa$=""then380
270 get#1,a$,a$
280 get#1,a$
290 ifa$=chr$(34)thent=t+1
300 ifa$=chr$(34)ort<>1then320
310 d$=d$+a$
320 ifa$=""then340
330 goto280
340 printd$
350 geta$:ifa$<>""then380
360 d$="":t=0
370 goto250
380 close1:close15
390 print"[205]ove cursor to selection, [200]it [210][197][212][213][210][206][146]"
400 inputn$
410 open3,8,8,n$+",p,r"
420 e=12288
430 poke780,1:poke781,8:poke782,0
440 sys65466
450 poke780,0:poke781,0:poke782,e/256
460 sys65493
470 ifpeek(783)and1thenprint"load error":stop
480 close3:goto510
490 b=16384*(3-peek(56576)and3)
500 e=b+(peek(53272)and12)*1024+f
510 dima$(9,97)
520 print"[147] [201]nsert [199][197][207][211] [196]isk with <swap> in [196]rive:"
530 print" [200]it [210][197][212][213][210][206] [146]"
540 geta$:ifa$=""then540
550 print" [208]lease wait....
560 [159]1,8,15,"i:0":[159]2,8,2,"#0"
570 t[178]18:s[178]1
580 [152]1,"u1";2;0;t;s
590 [161]#2,t$,s$
600 t[178][198](t$[170][199](0)):s[178][198](s$[170][199](0))
610 [129]i[178]0[164]7
620 [152]1,"b-p";2;32[172]i[170]2
630 [161]#2,z$,p$,q$
640 [139]z$[178]""[167]670
650 [161]#2,x$
660 [139][198](x$)[178]60[167]710
670 [130]i
680 [139]t[179][177]0[167]580
690 [160]1:[160]2
700 [153]"load <swap> not on disk.":[137]520
710 t[178][198](p$[170][199](0)):s[178][198](q$[170][199](0))
720 [152]1,"u1";2;0;t;s
730 [152]1,"b-p";2;22
740 [161]#2,t$,s$
750 t[178][198](t$[170][199](0)):s[178][198](s$[170][199](0))
760 [129]j[178]0[164]97:a$(0,j)[178][199](0):[130]j
770 [129]i[178]1[164]8
780 [129]j[178]0[164]63
790 a$(i,j)[178][199]([194](e[170]8[172](j[170]32)[170]i[171]1)):[130]j
800 a$(i,64)[178][199]([194](e[170]512[170]i[171]1))
810 [129]j[178]65[164]90
820 a$(i,j)[178][199]([194](e[170]8[172](j[171]64)[170]i[171]1)):[130]j
830 [129]j[178]91[164]97
840 a$(i,j)[178][199](0):[130]j
850 [130]i
860 [129]j[178]0[164]97
870 a$(i,j)[178][199](0)
880 [130]j
890 p[178]204:j[178]0:i[178]0
900 [152]1,"u1";2;0;t;s
910 [161]#2,t$,s$
920 [152]1,"b-p";2;p
930 [152]2,a$(i,j);
940 j[178]j[170]1:[139]j[178]98[167]j[178]1:i[178]i[170]1
950 [139]i[178]10[167][152]1,"u2"2;0;t;s:[137]1010
960 p[178]p[170]1:[139]p[179]256[167]930
970 p[178]2
980 [152]1,"u2";2;0;t;s
990 t[178][198](t$[170][199](0)):s[178][198](s$[170][199](0))
1000 [137]900
1010 [152]1,"r0:"[170]m$[170]"=<swap>"
1020 [153]"load lenonversion lenomplete"
1030 [153]" (NULL)eboot chr$val(NULL)(NULL)? ((NULL)/(NULL)) wait"
1040 [161]a$:[139]a$[178]""[167]1040
1050 [139]a$[178]"n"[167][158]64738
1060 [160]1:[160]2
1070 [153]"load (NULL)lace chr$val(NULL)(NULL) peekootdisk in str$rive.
1080 print" [200]it [210][197][212][213][210][206] [146]"
1090 geta$:ifa$=""then1090
1100 ifa=0thena=1:load"geos",8,1
1110 print"[147] [146]"
1120 print" [146] [195]ommodore to [199][197][207][211] [146]"
1130 print" [146]"
1140 print" [198][207][206][212] [199][210][193][194][194][197][210] [146]"
1150 print" [146]"
1160 print" [195]opyright 1988 [195][207][205][208][213][212][197]! [208]ub., [201]nc."
1170 print" [193]ll [210]ights [210]eserved"
1180 return
55554 end
55555 open15,8,15,"s0:font grabber":close15
55556 save"font grabber",8:verify"font grabber",8
55557 print" [164][164][164][164][164][164][164][164][164][164][164][164][164][164]
55558 [153]" 'font grabber'wait est re-sauve !!
55559 end